home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G38F / MAC_BAR.Dxr / 00031_“›—À€.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  2.4 KB  |  131 lines
  1. global nextkey, backkey, i, menukey, moveflg, cntpage, maxpage, left_p, right_p, volset
  2.  
  3. on startMovie
  4.   set moveflg to 0
  5.   set mycursor to [1, 38]
  6.   set nextkey to 13
  7.   set backkey to 14
  8.   set menukey to 18
  9.   repeat with i = 13 to 14
  10.     set the cursor of sprite i to mycursor
  11.   end repeat
  12.   repeat with i = 16 to 18
  13.     set the cursor of sprite i to mycursor
  14.   end repeat
  15.   set the cursor of sprite 19 to [2, 39]
  16.   set cntpage to 1
  17.   set left_p to 299
  18.   set right_p to left_p + (maxpage * 2) - 1
  19.   set volset to the soundLevel
  20.   set the mouseDownScript to "gotMouseClick"
  21.   if the soundEnabled = 0 then
  22.     set the soundEnabled to 1
  23.   end if
  24.   volcrt()
  25. end
  26.  
  27. on gotmouseclick
  28.   dobuttonsprite()
  29. end
  30.  
  31. on dobuttonsprite
  32.   if rollOver(nextkey) then
  33.     donext()
  34.   else
  35.     if rollOver(backkey) then
  36.       doback()
  37.     else
  38.       if rollOver(menukey) then
  39.         domenuback()
  40.       else
  41.       end if
  42.     end if
  43.   end if
  44. end
  45.  
  46. on donext
  47.   if moveflg = 1 then
  48.     exit
  49.   else
  50.   end if
  51.   if moveflg <> 1 then
  52.     set moveflg to 1
  53.   else
  54.   end if
  55.   set cntpage to cntpage + 1
  56.   if cntpage > maxpage then
  57.     set cntpage to maxpage
  58.     exit
  59.   end if
  60.   repeat while the stillDown
  61.     puppetSprite(nextkey, 1)
  62.     set the castNum of sprite nextkey to 7
  63.     updateStage()
  64.   end repeat
  65.   tell the stage
  66.     set the soundEnabled to 1
  67.   end tell
  68.   jumpjumpkey()
  69. end
  70.  
  71. on doback
  72.   if moveflg = 1 then
  73.     exit
  74.   else
  75.     if moveflg <> 1 then
  76.       set moveflg to 2
  77.     else
  78.     end if
  79.   end if
  80.   set cntpage to cntpage - 1
  81.   if cntpage < 1 then
  82.     set cntpage to 1
  83.     exit
  84.   end if
  85.   repeat while the stillDown
  86.     puppetSprite(backkey, 1)
  87.     set the castNum of sprite backkey to 9
  88.     updateStage()
  89.   end repeat
  90.   tell the stage
  91.     set the soundEnabled to 0
  92.   end tell
  93.   jumpjump()
  94.   crt_key()
  95. end
  96.  
  97. on page_count
  98.   set cntpage to cntpage + 1
  99.   if cntpage > maxpage then
  100.     set cntpage to maxpage
  101.     exit
  102.   end if
  103.   countcrt()
  104. end
  105.  
  106. on crt_key
  107.   puppetSprite(nextkey, 1)
  108.   puppetSprite(backkey, 1)
  109.   set the castNum of sprite nextkey to 6
  110.   set the castNum of sprite backkey to 8
  111.   updateStage()
  112. end
  113.  
  114. on volcrt
  115.   puppetSprite(25, 1)
  116.   set the memberNum of sprite 25 to volset + 20
  117.   updateStage()
  118.   set the soundLevel to volset
  119. end
  120.  
  121. on domenuback
  122.   repeat while the stillDown
  123.     puppetSprite(menukey, 1)
  124.     set the memberNum of sprite menukey to 18
  125.     updateStage()
  126.   end repeat
  127.   tell the stage
  128.     doexit()
  129.   end tell
  130. end
  131.